home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / BBS_UTL / PROK344 / PROVIS.INT < prev    next >
Text File  |  1991-04-01  |  1KB  |  49 lines
  1.  
  2. (*
  3.  * Copyright 1987, 1991 Samuel H. Smith;  All rights reserved
  4.  *
  5.  * This is a component of the ProDoor System.
  6.  * Do not distribute modified versions without my permission.
  7.  * Do not remove or alter this notice or any other copyright notice.
  8.  * If you use this in your own program you must distribute source code.
  9.  * Do not use any of this in a commercial product.
  10.  *
  11.  *)
  12.  
  13. (*
  14.  * PCB ProDOOR ProVis - Visual Edit module
  15.  *
  16.  *)
  17.  
  18. unit ProVis;
  19.  
  20. interface
  21.  
  22.    uses Tools, ProData;
  23.  
  24. const
  25.    leftmargin = 0;      {4; spaces to skip at left margin}
  26.    topscreen = 7;       {first screen line for text entry}
  27.    maxscrlines = 40;    {maximum number of display lines}
  28.    vismaxlen = 79;      {maximum display line length}
  29.    viswraplen = 71;     {visual word wrap line length}
  30.  
  31.    insert_mode: boolean = true;
  32.  
  33. var
  34.    statline:    integer;        {line for statue messages}
  35.    scrlines:    integer;        {number of screen lines for text entry}
  36.    scrollsiz:   integer;        {number of lines to scroll by}
  37.    topline:     integer;        {message line number at top of screen}
  38.    cline:       integer;        {current message line number}
  39.    ccol:        integer;        {current column number}
  40.  
  41.    phyline:     array[1..maxscrlines] of string[vismaxlen];
  42.                                 {physical display text}
  43.  
  44.    pleft:       integer;        {previous value of minutes_left}
  45.  
  46. procedure visual_edit;
  47.  
  48. implementation
  49.